<?php

class grad {

    var $mpdf = null;

    function grad(&$mpdf) {
        $this->mpdf = $mpdf;
    }

// mPDF 5.3.A1
    function CoonsPatchMesh($x, $y, $w, $h, $patch_array = array(), $x_min = 0, $x_max = 1, $y_min = 0, $y_max = 1, $colspace = 'RGB', $return = false) {
        $s = ' q ';
        $s.=sprintf(' %.3F %.3F %.3F %.3F re W n ', $x * _MPDFK, ($this->mpdf->h - $y) * _MPDFK, $w * _MPDFK, -$h * _MPDFK);
        $s.=sprintf(' %.3F 0 0 %.3F %.3F %.3F cm ', $w * _MPDFK, $h * _MPDFK, $x * _MPDFK, ($this->mpdf->h - ($y + $h)) * _MPDFK);
        $n = count($this->mpdf->gradients) + 1;
        $this->mpdf->gradients[$n]['type'] = 6; //coons patch mesh
        $this->mpdf->gradients[$n]['colorspace'] = $colspace; //coons patch mesh
        $bpcd = 65535; //16 BitsPerCoordinate
        $trans = false;
        $this->mpdf->gradients[$n]['stream'] = '';
        for ($i = 0; $i < count($patch_array); $i++) {
            $this->mpdf->gradients[$n]['stream'].=chr($patch_array[$i]['f']); //start with the edge flag as 8 bit
            for ($j = 0; $j < count($patch_array[$i]['points']); $j++) {
                //each point as 16 bit
                if (($j % 2) == 1) { // Y coordinate (adjusted as input is From top left)
                    $patch_array[$i]['points'][$j] = (($patch_array[$i]['points'][$j] - $y_min) / ($y_max - $y_min)) * $bpcd;
                    $patch_array[$i]['points'][$j] = $bpcd - $patch_array[$i]['points'][$j];
                } else {
                    $patch_array[$i]['points'][$j] = (($patch_array[$i]['points'][$j] - $x_min) / ($x_max - $x_min)) * $bpcd;
                }
                if ($patch_array[$i]['points'][$j] < 0)
                    $patch_array[$i]['points'][$j] = 0;
                if ($patch_array[$i]['points'][$j] > $bpcd)
                    $patch_array[$i]['points'][$j] = $bpcd;
                $this->mpdf->gradients[$n]['stream'].=chr(floor($patch_array[$i]['points'][$j] / 256));
                $this->mpdf->gradients[$n]['stream'].=chr(floor($patch_array[$i]['points'][$j] % 256));
            }
            for ($j = 0; $j < count($patch_array[$i]['colors']); $j++) {
                //each color component as 8 bit
                if ($colspace == 'RGB') {
                    $this->mpdf->gradients[$n]['stream'].=($patch_array[$i]['colors'][$j][1]);
                    $this->mpdf->gradients[$n]['stream'].=($patch_array[$i]['colors'][$j][2]);
                    $this->mpdf->gradients[$n]['stream'].=($patch_array[$i]['colors'][$j][3]);
                    if (isset($patch_array[$i]['colors'][$j][4]) && ord($patch_array[$i]['colors'][$j][4]) < 100) {
                        $trans = true;
                    }
                } else if ($colspace == 'CMYK') {
                    $this->mpdf->gradients[$n]['stream'].=chr(ord($patch_array[$i]['colors'][$j][1]) * 2.55);
                    $this->mpdf->gradients[$n]['stream'].=chr(ord($patch_array[$i]['colors'][$j][2]) * 2.55);
                    $this->mpdf->gradients[$n]['stream'].=chr(ord($patch_array[$i]['colors'][$j][3]) * 2.55);
                    $this->mpdf->gradients[$n]['stream'].=chr(ord($patch_array[$i]['colors'][$j][4]) * 2.55);
                    if (isset($patch_array[$i]['colors'][$j][5]) && ord($patch_array[$i]['colors'][$j][5]) < 100) {
                        $trans = true;
                    }
                } else if ($colspace == 'Gray') {
                    $this->mpdf->gradients[$n]['stream'].=($patch_array[$i]['colors'][$j][1]);
                    if ($patch_array[$i]['colors'][$j][2] == 1) {
                        $trans = true;
                    } // transparency converted from rgba or cmyka()
                }
            }
        }
        // TRANSPARENCY
        if ($trans) {
            $this->mpdf->gradients[$n]['stream_trans'] = '';
            for ($i = 0; $i < count($patch_array); $i++) {
                $this->mpdf->gradients[$n]['stream_trans'].=chr($patch_array[$i]['f']);
                for ($j = 0; $j < count($patch_array[$i]['points']); $j++) {
                    //each point as 16 bit
                    $this->mpdf->gradients[$n]['stream_trans'].=chr(floor($patch_array[$i]['points'][$j] / 256));
                    $this->mpdf->gradients[$n]['stream_trans'].=chr(floor($patch_array[$i]['points'][$j] % 256));
                }
                for ($j = 0; $j < count($patch_array[$i]['colors']); $j++) {
                    //each color component as 8 bit // OPACITY
                    if ($colspace == 'RGB') {
                        $this->mpdf->gradients[$n]['stream_trans'].=chr(intval(ord($patch_array[$i]['colors'][$j][4]) * 2.55));
                    } else if ($colspace == 'CMYK') {
                        $this->mpdf->gradients[$n]['stream_trans'].=chr(intval(ord($patch_array[$i]['colors'][$j][5]) * 2.55));
                    } else if ($colspace == 'Gray') {
                        $this->mpdf->gradients[$n]['stream_trans'].=chr(intval(ord($patch_array[$i]['colors'][$j][3]) * 2.55));
                    }
                }
            }
            $this->mpdf->gradients[$n]['trans'] = true;
            $s .= ' /TGS' . $n . ' gs ';
        }
        //paint the gradient
        $s .= '/Sh' . $n . ' sh' . "\n";
        //restore previous Graphic State
        $s .= 'Q' . "\n";
        if ($return) {
            return $s;
        } else {
            $this->mpdf->_out($s);
        }
    }

// type = linear:2; radial: 3;
// Linear: $coords - array of the form (x1, y1, x2, y2) which defines the gradient vector (see linear_gradient_coords.jpg). 
//    The default value is from left to right (x1=0, y1=0, x2=1, y2=0).
// Radial: $coords - array of the form (fx, fy, cx, cy, r) where (fx, fy) is the starting point of the gradient with color1, 
//    (cx, cy) is the center of the circle with color2, and r is the radius of the circle (see radial_gradient_coords.jpg). 
//    (fx, fy) should be inside the circle, otherwise some areas will not be defined
// $col = array(R,G,B/255); or array(G/255); or array(C,M,Y,K/100)
// $stops = array('col'=>$col [, 'opacity'=>0-1] [, 'offset'=>0-1])
    function Gradient($x, $y, $w, $h, $type, $stops = array(), $colorspace = 'RGB', $coords = '', $extend = '', $return = false, $is_mask = false) {
        if (strtoupper(substr($type, 0, 1)) == 'L') {
            $type = 2;
        } // linear
        else if (strtoupper(substr($type, 0, 1)) == 'R') {
            $type = 3;
        } // radial
        if ($colorspace != 'CMYK' && $colorspace != 'Gray') {
            $colorspace = 'RGB';
        }
        $bboxw = $w;
        $bboxh = $h;
        $usex = $x;
        $usey = $y;
        $usew = $bboxw;
        $useh = $bboxh;
        if ($type < 1) {
            $type = 2;
        }
        if ($coords[0] !== false && preg_match('/([0-9.]+(px|em|ex|pc|pt|cm|mm|in))/i', $coords[0], $m)) {
            $tmp = $this->mpdf->ConvertSize($m[1], $this->mpdf->w, $this->mpdf->FontSize, false);
            if ($tmp) {
                $coords[0] = $tmp / $w;
            }
        }
        if ($coords[1] !== false && preg_match('/([0-9.]+(px|em|ex|pc|pt|cm|mm|in))/i', $coords[1], $m)) {
            $tmp = $this->mpdf->ConvertSize($m[1], $this->mpdf->w, $this->mpdf->FontSize, false);
            if ($tmp) {
                $coords[1] = 1 - ($tmp / $h);
            }
        }
        // LINEAR
        if ($type == 2) {
            $angle = $coords[4];
            $repeat = $coords[5];
            // ALL POINTS SET (default for custom mPDF linear gradient) - no -moz
            if ($coords[0] !== false && $coords[1] !== false && $coords[2] !== false && $coords[3] !== false) {
                // do nothing - coords used as they are
            }

            // If both a <point> and <angle> are defined, the gradient axis starts from the point and runs along the angle. The end point is 
            // defined as before - in this case start points may not be in corners, and axis may not correctly fall in the right quadrant.
            // NO end points (Angle defined & Start points)
            else if ($angle !== false && $coords[0] !== false && $coords[1] !== false && $coords[2] === false && $coords[3] === false) {
                if ($angle == 0 || $angle == 360) {
                    $coords[3] = $coords[1];
                    if ($coords[0] == 1)
                        $coords[2] = 2;
                    else
                        $coords[2] = 1;
                }
                else if ($angle == 90) {
                    $coords[2] = $coords[0];
                    $coords[3] = 1;
                    if ($coords[1] == 1)
                        $coords[3] = 2;
                    else
                        $coords[3] = 1;
                }
                else if ($angle == 180) {
                    if ($coords[4] == 0)
                        $coords[2] = -1;
                    else
                        $coords[2] = 0; $coords[3] = $coords[1];
                }
                else if ($angle == 270) {
                    $coords[2] = $coords[0];
                    if ($coords[1] == 0)
                        $coords[3] = -1;
                    else
                        $coords[3] = 0;
                }
                else {
                    $endx = 1;
                    $endy = 1;
                    if ($angle <= 90) {
                        if ($angle <= 45) {
                            $endy = tan(deg2rad($angle));
                        } else {
                            $endx = tan(deg2rad(90 - $angle));
                        }
                        $b = atan2(($endy * $bboxh), ($endx * $bboxw));
                        $ny = 1 - $coords[1] - (tan($b) * (1 - $coords[0]));
                        $tx = sin($b) * cos($b) * $ny;
                        $ty = cos($b) * cos($b) * $ny;
                        $coords[2] = 1 + $tx;
                        $coords[3] = 1 - $ty;
                    } else if ($angle <= 180) {
                        if ($angle <= 135) {
                            $endx = tan(deg2rad($angle - 90));
                        } else {
                            $endy = tan(deg2rad(180 - $angle));
                        }
                        $b = atan2(($endy * $bboxh), ($endx * $bboxw));
                        $ny = 1 - $coords[1] - (tan($b) * ($coords[0]));
                        $tx = sin($b) * cos($b) * $ny;
                        $ty = cos($b) * cos($b) * $ny;
                        $coords[2] = -$tx;
                        $coords[3] = 1 - $ty;
                    } else if ($angle <= 270) {
                        if ($angle <= 225) {
                            $endy = tan(deg2rad($angle - 180));
                        } else {
                            $endx = tan(deg2rad(270 - $angle));
                        }
                        $b = atan2(($endy * $bboxh), ($endx * $bboxw));
                        $ny = $coords[1] - (tan($b) * ($coords[0]));
                        $tx = sin($b) * cos($b) * $ny;
                        $ty = cos($b) * cos($b) * $ny;
                        $coords[2] = -$tx;
                        $coords[3] = $ty;
                    } else {
                        if ($angle <= 315) {
                            $endx = tan(deg2rad($angle - 270));
                        } else {
                            $endy = tan(deg2rad(360 - $angle));
                        }
                        $b = atan2(($endy * $bboxh), ($endx * $bboxw));
                        $ny = $coords[1] - (tan($b) * (1 - $coords[0]));
                        $tx = sin($b) * cos($b) * $ny;
                        $ty = cos($b) * cos($b) * $ny;
                        $coords[2] = 1 + $tx;
                        $coords[3] = $ty;
                    }
                }
            }

            // -moz If the first parameter is only an <angle>, the gradient axis starts from the box's corner that would ensure the 
            // axis goes through the box. The axis runs along the specified angle. The end point of the axis is defined such that the 
            // farthest corner of the box from the starting point is perpendicular to the gradient axis at that point.
            // NO end points or Start points (Angle defined)
            else if ($angle !== false && $coords[0] === false && $coords[1] === false) {
                if ($angle == 0 || $angle == 360) {
                    $coords[0] = 0;
                    $coords[1] = 0;
                    $coords[2] = 1;
                    $coords[3] = 0;
                } else if ($angle == 90) {
                    $coords[0] = 0;
                    $coords[1] = 0;
                    $coords[2] = 0;
                    $coords[3] = 1;
                } else if ($angle == 180) {
                    $coords[0] = 1;
                    $coords[1] = 0;
                    $coords[2] = 0;
                    $coords[3] = 0;
                } else if ($angle == 270) {
                    $coords[0] = 0;
                    $coords[1] = 1;
                    $coords[2] = 0;
                    $coords[3] = 0;
                } else {
                    if ($angle <= 90) {
                        $coords[0] = 0;
                        $coords[1] = 0;
                        if ($angle <= 45) {
                            $endx = 1;
                            $endy = tan(deg2rad($angle));
                        } else {
                            $endx = tan(deg2rad(90 - $angle));
                            $endy = 1;
                        }
                    } else if ($angle <= 180) {
                        $coords[0] = 1;
                        $coords[1] = 0;
                        if ($angle <= 135) {
                            $endx = tan(deg2rad($angle - 90));
                            $endy = 1;
                        } else {
                            $endx = 1;
                            $endy = tan(deg2rad(180 - $angle));
                        }
                    } else if ($angle <= 270) {
                        $coords[0] = 1;
                        $coords[1] = 1;
                        if ($angle <= 225) {
                            $endx = 1;
                            $endy = tan(deg2rad($angle - 180));
                        } else {
                            $endx = tan(deg2rad(270 - $angle));
                            $endy = 1;
                        }
                    } else {
                        $coords[0] = 0;
                        $coords[1] = 1;
                        if ($angle <= 315) {
                            $endx = tan(deg2rad($angle - 270));
                            $endy = 1;
                        } else {
                            $endx = 1;
                            $endy = tan(deg2rad(360 - $angle));
                        }
                    }
                    $b = atan2(($endy * $bboxh), ($endx * $bboxw));
                    $h2 = $bboxh - ($bboxh * tan($b));
                    $px = $bboxh + ($h2 * sin($b) * cos($b));
                    $py = ($bboxh * tan($b)) + ($h2 * sin($b) * sin($b));
                    $x1 = $px / $bboxh;
                    $y1 = $py / $bboxh;
                    if ($angle <= 90) {
                        $coords[2] = $x1;
                        $coords[3] = $y1;
                    } else if ($angle <= 180) {
                        $coords[2] = 1 - $x1;
                        $coords[3] = $y1;
                    } else if ($angle <= 270) {
                        $coords[2] = 1 - $x1;
                        $coords[3] = 1 - $y1;
                    } else {
                        $coords[2] = $x1;
                        $coords[3] = 1 - $y1;
                    }
                }
            }
            // -moz If the first parameter to the gradient function is only a <point>, the gradient axis starts from the specified point, 
            // and ends at the point you would get if you rotated the starting point by 180 degrees about the center of the box that the 
            // gradient is to be applied to.
            // NO angle and NO end points (Start points defined)
            else if ((!isset($angle) || $angle === false) && $coords[0] !== false && $coords[1] !== false) {  // should have start and end defined
                $coords[2] = 1 - $coords[0];
                $coords[3] = 1 - $coords[1];
                $angle = rad2deg(atan2($coords[3] - $coords[1], $coords[2] - $coords[0]));
                if ($angle < 0) {
                    $angle += 360;
                } else if ($angle > 360) {
                    $angle -= 360;
                }
                if ($angle != 0 && $angle != 360 && $angle != 90 && $angle != 180 && $angle != 270) {
                    if ($w >= $h) {
                        $coords[1] *= $h / $w;
                        $coords[3] *= $h / $w;
                        $usew = $useh = $bboxw;
                        $usey -= ($w - $h);
                    } else {
                        $coords[0] *= $w / $h;
                        $coords[2] *= $w / $h;
                        $usew = $useh = $bboxh;
                    }
                }
            }

            // -moz If neither a <point> or <angle> is specified, i.e. the entire function consists of only <stop> values, the gradient 
            // axis starts from the top of the box and runs vertically downwards, ending at the bottom of the box.
            else { // default values T2B
                // All values are set in parseMozGradient - so won't appear here
                $coords = array(0, 0, 1, 0); // default for original linear gradient (L2R)
            }
            $s = ' q';
            $s .= sprintf(' %.3F %.3F %.3F %.3F re W n', $x * _MPDFK, ($this->mpdf->h - $y) * _MPDFK, $w * _MPDFK, -$h * _MPDFK) . "\n";
            $s .= sprintf(' %.3F 0 0 %.3F %.3F %.3F cm', $usew * _MPDFK, $useh * _MPDFK, $usex * _MPDFK, ($this->mpdf->h - ($usey + $useh)) * _MPDFK) . "\n";
        }

        // RADIAL
        else if ($type == 3) {
            $radius = $coords[4];
            $angle = $coords[5]; // ?? no effect
            $shape = $coords[6];
            $size = $coords[7];
            $repeat = $coords[8];
            // ALL POINTS AND RADIUS SET (default for custom mPDF radial gradient) - no -moz
            if ($coords[0] !== false && $coords[1] !== false && $coords[2] !== false && $coords[3] !== false && $coords[4] !== false) {
                // do nothing - coords used as they are
            }
            // If a <point> is defined
            else if ($shape !== false && $size !== false) {
                if ($coords[2] == false) {
                    $coords[2] = $coords[0];
                }
                if ($coords[3] == false) {
                    $coords[3] = $coords[1];
                }
                // ELLIPSE
                if ($shape == 'ellipse') {
                    $corner1 = sqrt(pow($coords[0], 2) + pow($coords[1], 2));
                    $corner2 = sqrt(pow($coords[0], 2) + pow((1 - $coords[1]), 2));
                    $corner3 = sqrt(pow((1 - $coords[0]), 2) + pow($coords[1], 2));
                    $corner4 = sqrt(pow((1 - $coords[0]), 2) + pow((1 - $coords[1]), 2));
                    if ($size == 'closest-side') {
                        $radius = min($coords[0], $coords[1], (1 - $coords[0]), (1 - $coords[1]));
                    } else if ($size == 'closest-corner') {
                        $radius = min($corner1, $corner2, $corner3, $corner4);
                    } else if ($size == 'farthest-side') {
                        $radius = max($coords[0], $coords[1], (1 - $coords[0]), (1 - $coords[1]));
                    } else {
                        $radius = max($corner1, $corner2, $corner3, $corner4);
                    } // farthest corner (default)
                }
                // CIRCLE
                else if ($shape == 'circle') {
                    if ($w >= $h) {
                        $coords[1] = $coords[3] = ($coords[1] * $h / $w);
                        $corner1 = sqrt(pow($coords[0], 2) + pow($coords[1], 2));
                        $corner2 = sqrt(pow($coords[0], 2) + pow((($h / $w) - $coords[1]), 2));
                        $corner3 = sqrt(pow((1 - $coords[0]), 2) + pow($coords[1], 2));
                        $corner4 = sqrt(pow((1 - $coords[0]), 2) + pow((($h / $w) - $coords[1]), 2));
                        if ($size == 'closest-side') {
                            $radius = min($coords[0], $coords[1], (1 - $coords[0]), (($h / $w) - $coords[1]));
                        } else if ($size == 'closest-corner') {
                            $radius = min($corner1, $corner2, $corner3, $corner4);
                        } else if ($size == 'farthest-side') {
                            $radius = max($coords[0], $coords[1], (1 - $coords[0]), (($h / $w) - $coords[1]));
                        } else if ($size == 'farthest-corner') {
                            $radius = max($corner1, $corner2, $corner3, $corner4);
                        } // farthest corner (default)
                        $usew = $useh = $bboxw;
                        $usey -= ($w - $h);
                    } else {
                        $coords[0] = $coords[2] = ($coords[0] * $w / $h);
                        $corner1 = sqrt(pow($coords[0], 2) + pow($coords[1], 2));
                        $corner2 = sqrt(pow($coords[0], 2) + pow((1 - $coords[1]), 2));
                        $corner3 = sqrt(pow((($w / $h) - $coords[0]), 2) + pow($coords[1], 2));
                        $corner4 = sqrt(pow((($w / $h) - $coords[0]), 2) + pow((1 - $coords[1]), 2));
                        if ($size == 'closest-side') {
                            $radius = min($coords[0], $coords[1], (($w / $h) - $coords[0]), (1 - $coords[1]));
                        } else if ($size == 'closest-corner') {
                            $radius = min($corner1, $corner2, $corner3, $corner4);
                        } else if ($size == 'farthest-side') {
                            $radius = max($coords[0], $coords[1], (($w / $h) - $coords[0]), (1 - $coords[1]));
                        } else if ($size == 'farthest-corner') {
                            $radius = max($corner1, $corner2, $corner3, $corner4);
                        } // farthest corner (default)
                        $usew = $useh = $bboxh;
                    }
                }
                if ($radius == 0) {
                    $radius = 0.001;
                } // to prevent error
                $coords[4] = $radius;
            }

            // -moz If entire function consists of only <stop> values
            else { // default values 
                // All values are set in parseMozGradient - so won't appear here
                $coords = array(0.5, 0.5, 0.5, 0.5); // default for radial gradient (centred)
            }
            $s = ' q';
            $s .= sprintf(' %.3F %.3F %.3F %.3F re W n', $x * _MPDFK, ($this->mpdf->h - $y) * _MPDFK, $w * _MPDFK, -$h * _MPDFK) . "\n";
            $s .= sprintf(' %.3F 0 0 %.3F %.3F %.3F cm', $usew * _MPDFK, $useh * _MPDFK, $usex * _MPDFK, ($this->mpdf->h - ($usey + $useh)) * _MPDFK) . "\n";
        }

        $n = count($this->mpdf->gradients) + 1;
        $this->mpdf->gradients[$n]['type'] = $type;
        $this->mpdf->gradients[$n]['colorspace'] = $colorspace;
        $trans = false;
        $this->mpdf->gradients[$n]['is_mask'] = $is_mask;
        if ($is_mask) {
            $trans = true;
        }
        if (count($stops) == 1) {
            $stops[1] = $stops[0];
        }
        if (!isset($stops[0]['offset'])) {
            $stops[0]['offset'] = 0;
        }
        if (!isset($stops[(count($stops) - 1)]['offset'])) {
            $stops[(count($stops) - 1)]['offset'] = 1;
        }

        // Fix stop-offsets set as absolute lengths
        if ($type == 2) {
            $axisx = ($coords[2] - $coords[0]) * $usew;
            $axisy = ($coords[3] - $coords[1]) * $useh;
            $axis_length = sqrt(pow($axisx, 2) + pow($axisy, 2));
        } else {
            $axis_length = $coords[4] * $usew;
        } // Absolute lengths are meaningless for an ellipse - Firefox uses Width as reference

        for ($i = 0; $i < count($stops); $i++) {
            if (isset($stops[$i]['offset']) && preg_match('/([0-9.]+(px|em|ex|pc|pt|cm|mm|in))/i', $stops[$i]['offset'], $m)) {
                $tmp = $this->mpdf->ConvertSize($m[1], $this->mpdf->w, $this->mpdf->FontSize, false);
                $stops[$i]['offset'] = $tmp / $axis_length;
            }
        }


        if (isset($stops[0]['offset']) && $stops[0]['offset'] > 0) {
            $firststop = $stops[0];
            $firststop['offset'] = 0;
            array_unshift($stops, $firststop);
        }
        if (!$repeat && isset($stops[(count($stops) - 1)]['offset']) && $stops[(count($stops) - 1)]['offset'] < 1) {
            $endstop = $stops[(count($stops) - 1)];
            $endstop['offset'] = 1;
            $stops[] = $endstop;
        }
        if ($stops[0]['offset'] > $stops[(count($stops) - 1)]['offset']) {
            $stops[0]['offset'] = 0;
            $stops[(count($stops) - 1)]['offset'] = 1;
        }

        for ($i = 0; $i < count($stops); $i++) {
            // mPDF 5.3.74
            if ($colorspace == 'CMYK') {
                $this->mpdf->gradients[$n]['stops'][$i]['col'] = sprintf('%.3F %.3F %.3F %.3F', (ord($stops[$i]['col']{1}) / 100), (ord($stops[$i]['col']{2}) / 100), (ord($stops[$i]['col']{3}) / 100), (ord($stops[$i]['col']{4}) / 100));
            } else if ($colorspace == 'Gray') {
                $this->mpdf->gradients[$n]['stops'][$i]['col'] = sprintf('%.3F', (ord($stops[$i]['col']{1}) / 255));
            } else {
                $this->mpdf->gradients[$n]['stops'][$i]['col'] = sprintf('%.3F %.3F %.3F', (ord($stops[$i]['col']{1}) / 255), (ord($stops[$i]['col']{2}) / 255), (ord($stops[$i]['col']{3}) / 255));
            }
            if (!isset($stops[$i]['opacity'])) {
                $stops[$i]['opacity'] = 1;
            } else if ($stops[$i]['opacity'] > 1 || $stops[$i]['opacity'] < 0) {
                $stops[$i]['opacity'] = 1;
            } else if ($stops[$i]['opacity'] < 1) {
                $trans = true;
            }
            $this->mpdf->gradients[$n]['stops'][$i]['opacity'] = $stops[$i]['opacity'];
            // OFFSET
            if ($i > 0 && $i < (count($stops) - 1)) {
                if (!isset($stops[$i]['offset']) || (isset($stops[$i + 1]['offset']) && $stops[$i]['offset'] > $stops[$i + 1]['offset']) || $stops[$i]['offset'] < $stops[$i - 1]['offset']) {
                    if (isset($stops[$i - 1]['offset']) && isset($stops[$i + 1]['offset'])) {
                        $stops[$i]['offset'] = ($stops[$i - 1]['offset'] + $stops[$i + 1]['offset']) / 2;
                    } else {
                        for ($j = ($i + 1); $j < count($stops); $j++) {
                            if (isset($stops[$j]['offset'])) {
                                break;
                            }
                        }
                        $int = ($stops[$j]['offset'] - $stops[($i - 1)]['offset']) / ($j - $i + 1);
                        for ($f = 0; $f < ($j - $i - 1); $f++) {
                            $stops[($i + $f)]['offset'] = $stops[($i + $f - 1)]['offset'] + ($int);
                        }
                    }
                }
            }
            $this->mpdf->gradients[$n]['stops'][$i]['offset'] = $stops[$i]['offset'];
            $this->mpdf->gradients[$n]['stops'][$i]['offset'] = $stops[$i]['offset'];
        }

        if ($repeat) {
            $ns = count($this->mpdf->gradients[$n]['stops']);
            $offs = array();
            for ($i = 0; $i < $ns; $i++) {
                $offs[$i] = $this->mpdf->gradients[$n]['stops'][$i]['offset'];
            }
            $gp = 0;
            $inside = true;
            while ($inside) {
                $gp++;
                for ($i = 0; $i < $ns; $i++) {
                    $this->mpdf->gradients[$n]['stops'][(($ns * $gp) + $i)] = $this->mpdf->gradients[$n]['stops'][(($ns * ($gp - 1)) + $i)];
                    $tmp = $this->mpdf->gradients[$n]['stops'][(($ns * ($gp - 1)) + ($ns - 1))]['offset'] + $offs[$i];
                    if ($tmp < 1) {
                        $this->mpdf->gradients[$n]['stops'][(($ns * $gp) + $i)]['offset'] = $tmp;
                    } else {
                        $this->mpdf->gradients[$n]['stops'][(($ns * $gp) + $i)]['offset'] = 1;
                        $inside = false;
                        break(2);
                    }
                }
            }
        }

        if ($trans) {
            $this->mpdf->gradients[$n]['trans'] = true;
            $s .= ' /TGS' . $n . ' gs ';
        }
        if (!is_array($extend) || count($extend) < 1) {
            $extend = array('true', 'true'); // These are supposed to be quoted - appear in PDF file as text
        }
        $this->mpdf->gradients[$n]['coords'] = $coords;
        $this->mpdf->gradients[$n]['extend'] = $extend;
        //paint the gradient
        $s .= '/Sh' . $n . ' sh ' . "\n";
        //restore previous Graphic State
        $s .= ' Q ' . "\n";
        if ($return) {
            return $s;
        } else {
            $this->mpdf->_out($s);
        }
    }

    function parseMozGradient($bg) {
        //	background[-image]: -moz-linear-gradient(left, #c7Fdde 20%, #FF0000 ); 
        //	background[-image]: linear-gradient(left, #c7Fdde 20%, #FF0000 ); // CSS3
        if (preg_match('/repeating-/', $bg)) {
            $repeat = true;
        } else {
            $repeat = false;
        }
        if (preg_match('/linear-gradient\((.*)\)/', $bg, $m)) {
            $g = array();
            $g['type'] = 2;
            $g['colorspace'] = 'RGB';
            $g['extend'] = array('true', 'true');
            $v = trim($m[1]);
            // Change commas inside e.g. rgb(x,x,x)
            while (preg_match('/(\([^\)]*?),/', $v)) {
                $v = preg_replace('/(\([^\)]*?),/', '\\1@', $v);
            }
            // Remove spaces inside e.g. rgb(x, x, x)
            while (preg_match('/(\([^\)]*?)[ ]/', $v)) {
                $v = preg_replace('/(\([^\)]*?)[ ]/', '\\1', $v);
            }
            $bgr = preg_split('/\s*,\s*/', $v);
            for ($i = 0; $i < count($bgr); $i++) {
                $bgr[$i] = preg_replace('/@/', ',', $bgr[$i]);
            }
            // Is first part $bgr[0] a valid point/angle?
            $first = preg_split('/\s+/', trim($bgr[0]));
            if (preg_match('/(left|center|right|bottom|top|deg|grad|rad)/i', $bgr[0]) && !preg_match('/(<#|rgb|rgba|hsl|hsla)/i', $bgr[0])) {
                $startStops = 1;
            } else if (trim($first[(count($first) - 1)]) === "0") {
                $startStops = 1;
            } else {
                $check = $this->mpdf->ConvertColor($first[0]);
                if ($check)
                    $startStops = 0;
                else
                    $startStops = 1;
            }
            // first part a valid point/angle?
            if ($startStops == 1) { // default values
                // [<point> || <angle>,] = [<% em px left center right bottom top> || <deg grad rad 0>,]
                if (preg_match('/([\-]*[0-9\.]+)(deg|grad|rad)/i', $bgr[0], $m)) {
                    $angle = $m[1] + 0;
                    if (strtolower($m[2]) == 'deg') {
                        $angle = $angle;
                    } else if (strtolower($m[2]) == 'grad') {
                        $angle *= (360 / 400);
                    } else if (strtolower($m[2]) == 'rad') {
                        $angle = rad2deg($angle);
                    }
                    while ($angle < 0) {
                        $angle += 360;
                    }
                    $angle = ($angle % 360);
                } else if (trim($first[(count($first) - 1)]) === "0") {
                    $angle = 0;
                }
                if (preg_match('/left/i', $bgr[0])) {
                    $startx = 0;
                } else if (preg_match('/right/i', $bgr[0])) {
                    $startx = 1;
                }
                if (preg_match('/top/i', $bgr[0])) {
                    $starty = 1;
                } else if (preg_match('/bottom/i', $bgr[0])) {
                    $starty = 0;
                }
                // Check for %? ?% or %%
                if (preg_match('/(\d+)[%]/i', $first[0], $m)) {
                    $startx = $m[1] / 100;
                } else if (!isset($startx) && preg_match('/([0-9.]+(px|em|ex|pc|pt|cm|mm|in))/i', $first[0], $m)) {
                    $tmp = $this->mpdf->ConvertSize($m[1], $this->mpdf->w, $this->mpdf->FontSize, false);
                    if ($tmp) {
                        $startx = $m[1];
                    }
                }
                if (isset($first[1]) && preg_match('/(\d+)[%]/i', $first[1], $m)) {
                    $starty = 1 - ($m[1] / 100);
                } else if (!isset($starty) && preg_match('/([0-9.]+(px|em|ex|pc|pt|cm|mm|in))/i', $first[1], $m)) {
                    $tmp = $this->mpdf->ConvertSize($m[1], $this->mpdf->w, $this->mpdf->FontSize, false);
                    if ($tmp) {
                        $starty = $m[1];
                    }
                }
                if (isset($startx) && !isset($starty)) {
                    $starty = 0.5;
                }
                if (!isset($startx) && isset($starty)) {
                    $startx = 0.5;
                }
            }
            // If neither a <point> or <angle> is specified, i.e. the entire function consists of only <stop> values, the gradient axis starts from the top of the box and runs vertically downwards, ending at the bottom of the box.
            else { // default values T2B
                $starty = 1;
                $startx = 0.5;
                $endy = 0;
                $endx = 0.5;
            }
            $coords = array();
            if (!isset($startx)) {
                $startx = false;
            }
            if (!isset($starty)) {
                $starty = false;
            }
            if (!isset($endx)) {
                $endx = false;
            }
            if (!isset($endy)) {
                $endy = false;
            }
            if (!isset($angle)) {
                $angle = false;
            }
            $g['coords'] = array($startx, $starty, $endx, $endy, $angle, $repeat);
            $g['stops'] = array();
            for ($i = $startStops; $i < count($bgr); $i++) {
                $stop = array();
                // parse stops
                $el = preg_split('/\s+/', trim($bgr[$i]));
                // mPDF 5.3.74
                $col = $this->mpdf->ConvertColor($el[0]);
                if ($col) {
                    $stop['col'] = $col;
                } else {
                    $stop['col'] = $col = $this->mpdf->ConvertColor(255);
                }
                if ($col{0} == 1)
                    $g['colorspace'] = 'Gray';
                else if ($col{0} == 4 || $col{0} == 6)
                    $g['colorspace'] = 'CMYK';
                if ($col{0} == 5) {
                    $stop['opacity'] = ord($col{4}) / 100;
                } // transparency from rgba()
                else if ($col{0} == 6) {
                    $stop['opacity'] = ord($col{5}) / 100;
                } // transparency from cmyka()
                else if ($col{0} == 1 && $col{2} == 1) {
                    $stop['opacity'] = ord($col{3}) / 100;
                } // transparency converted from rgba or cmyka()

                if (isset($el[1]) && preg_match('/(\d+)[%]/', $el[1], $m)) {
                    $stop['offset'] = $m[1] / 100;
                    if ($stop['offset'] > 1) {
                        unset($stop['offset']);
                    }
                } else if (isset($el[1]) && preg_match('/([0-9.]+(px|em|ex|pc|pt|cm|mm|in))/i', $el[1], $m)) {
                    $tmp = $this->mpdf->ConvertSize($m[1], $this->mpdf->w, $this->mpdf->FontSize, false);
                    if ($tmp) {
                        $stop['offset'] = $m[1];
                    }
                }
                $g['stops'][] = $stop;
            }
            if (count($g['stops'])) {
                return $g;
            }
        } else if (preg_match('/radial-gradient\((.*)\)/', $bg, $m)) {
            $g = array();
            $g['type'] = 3;
            $g['colorspace'] = 'RGB';
            $g['extend'] = array('true', 'true');
            $v = trim($m[1]);
            // Change commas inside e.g. rgb(x,x,x)
            while (preg_match('/(\([^\)]*?),/', $v)) {
                $v = preg_replace('/(\([^\)]*?),/', '\\1@', $v);
            }
            // Remove spaces inside e.g. rgb(x, x, x)
            while (preg_match('/(\([^\)]*?)[ ]/', $v)) {
                $v = preg_replace('/(\([^\)]*?)[ ]/', '\\1', $v);
            }
            $bgr = preg_split('/\s*,\s*/', $v);
            for ($i = 0; $i < count($bgr); $i++) {
                $bgr[$i] = preg_replace('/@/', ',', $bgr[$i]);
            }

            // Is first part $bgr[0] a valid point/angle?
            $startStops = 0;
            $pos_angle = false;
            $shape_size = false;
            $first = preg_split('/\s+/', trim($bgr[0]));
            $checkCol = $this->mpdf->ConvertColor($first[0]);
            if (preg_match('/(left|center|right|bottom|top|deg|grad|rad)/i', $bgr[0]) && !preg_match('/(<#|rgb|rgba|hsl|hsla)/i', $bgr[0])) {
                $startStops = 1;
                $pos_angle = $bgr[0];
            } else if (trim($first[(count($first) - 1)]) === "0") {
                $startStops = 1;
                $pos_angle = $bgr[0];
            } else if (preg_match('/(circle|ellipse|closest-side|closest-corner|farthest-side|farthest-corner|contain|cover)/i', $bgr[0])) {
                $startStops = 1;
                $shape_size = $bgr[0];
            } else if (!$checkCol) {
                $startStops = 1;
                $pos_angle = $bgr[0];
            }
            if (preg_match('/(circle|ellipse|closest-side|closest-corner|farthest-side|farthest-corner|contain|cover)/i', $bgr[1])) {
                $startStops = 2;
                $shape_size = $bgr[1];
            }

            // If valid point/angle?
            if ($pos_angle) { // default values
                // [<point> || <angle>,] = [<% em px left center right bottom top> || <deg grad rad 0>,]
                if (preg_match('/left/i', $pos_angle)) {
                    $startx = 0;
                } else if (preg_match('/right/i', $pos_angle)) {
                    $startx = 1;
                }
                if (preg_match('/top/i', $pos_angle)) {
                    $starty = 1;
                } else if (preg_match('/bottom/i', $pos_angle)) {
                    $starty = 0;
                }
                // Check for %? ?% or %%
                if (preg_match('/(\d+)[%]/i', $first[0], $m)) {
                    $startx = $m[1] / 100;
                } else if (!isset($startx) && preg_match('/([0-9.]+(px|em|ex|pc|pt|cm|mm|in))/i', $first[0], $m)) {
                    $tmp = $this->mpdf->ConvertSize($m[1], $this->mpdf->w, $this->mpdf->FontSize, false);
                    if ($tmp) {
                        $startx = $m[1];
                    }
                }
                if (isset($first[1]) && preg_match('/(\d+)[%]/i', $first[1], $m)) {
                    $starty = 1 - ($m[1] / 100);
                } else if (!isset($starty) && preg_match('/([0-9.]+(px|em|ex|pc|pt|cm|mm|in))/i', $first[1], $m)) {
                    $tmp = $this->mpdf->ConvertSize($m[1], $this->mpdf->w, $this->mpdf->FontSize, false);
                    if ($tmp) {
                        $starty = $m[1];
                    }
                }

                /*
                  // ?? Angle has no effect in radial gradient (does not exist in CSS3 spec.)
                  if (preg_match('/([\-]*[0-9\.]+)(deg|grad|rad)/i',$pos_angle,$m)) {
                  $angle = $m[1] + 0;
                  if (strtolower($m[2])=='deg') { $angle = $angle; }
                  else if (strtolower($m[2])=='grad') { $angle *= (360/400); }
                  else if (strtolower($m[2])=='rad') { $angle = rad2deg($angle); }
                  while($angle < 0) { $angle += 360; }
                  $angle = ($angle % 360);
                  }
                 */
                if (!isset($starty)) {
                    $starty = 0.5;
                }
                if (!isset($startx)) {
                    $startx = 0.5;
                }
            }
            // If neither a <point> or <angle> is specified, i.e. the entire function consists of only <stop> values, the gradient axis starts from the top of the box and runs vertically downwards, ending at the bottom of the box.
            else { // default values Center
                $starty = 0.5;
                $startx = 0.5;
                $endy = 0.5;
                $endx = 0.5;
            }

            // If valid shape/size?
            $shape = 'ellipse'; // default
            $size = 'farthest-corner'; // default
            if ($shape_size) { // default values
                if (preg_match('/(circle|ellipse)/i', $shape_size, $m)) {
                    $shape = $m[1];
                }
                if (preg_match('/(closest-side|closest-corner|farthest-side|farthest-corner|contain|cover)/i', $shape_size, $m)) {
                    $size = $m[1];
                    if ($size == 'contain') {
                        $size = 'closest-side';
                    } else if ($size == 'cover') {
                        $size = 'farthest-corner';
                    }
                }
            }

            $coords = array();
            if (!isset($startx)) {
                $startx = false;
            }
            if (!isset($starty)) {
                $starty = false;
            }
            if (!isset($endx)) {
                $endx = false;
            }
            if (!isset($endy)) {
                $endy = false;
            }
            if (!isset($radius)) {
                $radius = false;
            }
            if (!isset($angle)) {
                $angle = 0;
            }
            $g['coords'] = array($startx, $starty, $endx, $endy, $radius, $angle, $shape, $size, $repeat);

            $g['stops'] = array();
            for ($i = $startStops; $i < count($bgr); $i++) {
                $stop = array();
                // parse stops
                $el = preg_split('/\s+/', trim($bgr[$i]));
                // mPDF 5.3.74
                $col = $this->mpdf->ConvertColor($el[0]);
                if ($col) {
                    $stop['col'] = $col;
                } else {
                    $stop['col'] = $col = $this->mpdf->ConvertColor(255);
                }
                if ($col{0} == 1)
                    $g['colorspace'] = 'Gray';
                else if ($col{0} == 4 || $col{0} == 6)
                    $g['colorspace'] = 'CMYK';
                if ($col{0} == 5) {
                    $stop['opacity'] = ord($col{4}) / 100;
                } // transparency from rgba()
                else if ($col{0} == 6) {
                    $stop['opacity'] = ord($col{5}) / 100;
                } // transparency from cmyka()
                else if ($col{0} == 1 && $col{2} == 1) {
                    $stop['opacity'] = ord($col{3}) / 100;
                } // transparency converted from rgba or cmyka()

                if (isset($el[1]) && preg_match('/(\d+)[%]/', $el[1], $m)) {
                    $stop['offset'] = $m[1] / 100;
                    if ($stop['offset'] > 1) {
                        unset($stop['offset']);
                    }
                } else if (isset($el[1]) && preg_match('/([0-9.]+(px|em|ex|pc|pt|cm|mm|in))/i', $el[1], $m)) {
                    $tmp = $this->mpdf->ConvertSize($m[1], $this->mpdf->w, $this->mpdf->FontSize, false);
                    $stop['offset'] = $el[1];
                }
                $g['stops'][] = $stop;
            }
            if (count($g['stops'])) {
                return $g;
            }
        }
        return array();
    }

    function parseBackgroundGradient($bg) {
        // background-gradient: linear #00FFFF #FFFF00 0 0.5 1 0.5;  or
        // background-gradient: radial #00FFFF #FFFF00 0.5 0.5 1 1 1.2;

        $v = trim($bg);
        $bgr = preg_split('/\s+/', $v);
        $g = array();
        if (count($bgr) > 6) {
            if (strtoupper(substr($bgr[0], 0, 1)) == 'L' && count($bgr) == 7) {  // linear
                $g['type'] = 2;
                //$coords = array(0,0,1,1 );	// 0 0 1 0 or 0 1 1 1 is L 2 R; 1,1,0,1 is R2L; 1,1,1,0 is T2B; 1,0,1,1 is B2T
                // Linear: $coords - array of the form (x1, y1, x2, y2) which defines the gradient vector (see linear_gradient_coords.jpg). 
                //    The default value is from left to right (x1=0, y1=0, x2=1, y2=0).
                $g['coords'] = array($bgr[3], $bgr[4], $bgr[5], $bgr[6]);
            } else if (count($bgr) == 8) { // radial
                $g['type'] = 3;
                // Radial: $coords - array of the form (fx, fy, cx, cy, r) where (fx, fy) is the starting point of the gradient with color1, 
                //    (cx, cy) is the center of the circle with color2, and r is the radius of the circle (see radial_gradient_coords.jpg). 
                //    (fx, fy) should be inside the circle, otherwise some areas will not be defined
                $g['coords'] = array($bgr[3], $bgr[4], $bgr[5], $bgr[6], $bgr[7]);
            }
            $g['colorspace'] = 'RGB';
            // mPDF 5.3.74
            $cor = $this->mpdf->ConvertColor($bgr[1]);
            if ($cor{0} == 1)
                $g['colorspace'] = 'Gray';
            else if ($cor{0} == 4 || $cor{0} == 6)
                $g['colorspace'] = 'CMYK';
            if ($cor) {
                $g['col'] = $cor;
            } else {
                $g['col'] = $this->mpdf->ConvertColor(255);
            }
            $cor = $this->mpdf->ConvertColor($bgr[2]);
            if ($cor) {
                $g['col2'] = $cor;
            } else {
                $g['col2'] = $this->mpdf->ConvertColor(255);
            }
            $g['extend'] = array('true', 'true');
            $g['stops'] = array(array('col' => $g['col'], 'opacity' => 1, 'offset' => 0), array('col' => $g['col2'], 'opacity' => 1, 'offset' => 1));
            return $g;
        }
        return false;
    }

}

?>